STJNLTMP
AR_ALLO
t LVOID
arallo
Reallocate Amounts
chngtot
arallo1
	first_ref
	Reference
amount
Orig Amount
999,999,999.99
Rec_amount
Alloc 
STOCK_CODE
FIRST_REF
ACT_CODE
- rec_amount
999,999,999.99
	fieldlist
	fieldlist
	readmodal
setfocus
ARALLO1
t ARALLO
nt *LVOID
drstrans->rec_amount 
DRSTRANS
etname6.value
etname6.value
REC_AMOUNT
TOT_AMOUNT
AR_ALLO
drstrans
LBNAME2.value
drstrans->sub_code = custid
sub_code = custid
allobr
AR_ALLO
CUSTID
drstrans
lbname2.value
sub_code = custid
rec_amount 
'Allocation Check Total Does Not Balance
errormsg
safety
posttemp
rec_amount <> 0
posttemp
posttemp
ALLOCATION
posttemp
drstrans
posttemp
posttemp.dbf
set safety &saf.
AR_ALLO
CUSTID
REC_AMOUNT
TOT_AMOUNT
STOCK_CODE
STOCK_CODE
FIRST_REF
FIRST_REF
ACT_CODE
ACT_CODE